home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels1.arc / EQUIPMNT.PAS < prev    next >
Pascal/Delphi Source File  |  1985-06-28  |  983b  |  26 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.       The function Equipment returns information about the
  6.       equipment attached to your PC.
  7. }
  8.  
  9. {$I regpack.typ}
  10. {$I Equipmnt.lib}
  11. begin
  12.   WriteLn('As far as I can see, you have the following attached to your PC:');
  13.   WriteLn;
  14.   WriteLn('     ',Equipment('P'):2,' printers');
  15.   if Equipment('G') = 1 then
  16.     WriteLn('     a Game Port');
  17.   WRiteLn('     ',Equipment('R'):2,' RS232 serial ports');
  18.   WriteLn('     ',Equipment('D'):2,' diskette drives');
  19.   WriteLn('     ',Equipment('M'):2,'K RAM on the motherboard');
  20.   WRite('     and your initial video mode is ');
  21.   case Equipment('V') of
  22.     1: WriteLn('40x25 BW using color card');
  23.     2: WriteLn('80x25 BW using color card');
  24.     3: WriteLn('80x25 BW using BW card');
  25.   end;
  26. end.